home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / mathpack.arc / L.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-08  |  1.0 KB  |  22 lines
  1. 10  CLS
  2. 20  KEY OFF
  3. 30  COLOR 7,0
  4. 40  WIDTH 80
  5. 50  DEF SEG = 0: POKE 1050,PEEK(1052)
  6. 60  LOCATE 1,20:PRINT "B I N A R Y  T O  D E C I M A L   T U T O R I A L"
  7. 70  LOCATE 5,2:PRINT " This section will guide you through the BINARY to DECIMAL section of M A T H   P A K."
  8. 80  LOCATE 8,2:PRINT " This section of M A T H  P A K, will allow you to enter a 16-bit BINARY value,"
  9. 90  LOCATE 9,2:PRINT "and give you a DECIMAL equivalent."
  10. 100  LOCATE 10,2:PRINT " EXAMPLE:"
  11. 110  LOCATE 11,2:PRINT " To convert 0010100100100010 into a DECIMAL value, enter the binary value as is,"
  12. 120  LOCATE 13,2:PRINT "and press <RETURN>. The bit index guide, is simply to tell you when and where"
  13. 130  LOCATE 14,2:PRINT "you are to entering all 16 bits."
  14. 140  LOCATE 15,2:PRINT " Please enter a series of 0's and/or 1's ONLY!"
  15. 150  LOCATE 17,2:PRINT " To exit to main menu, enter a 'x' for BINARY value and press <RETURN>."
  16. 160  LOCATE 18,2:PRINT " If only a 8-bit BINARY value is being converted, then enter eight 0's "
  17. 170  LOCATE 19,2:PRINT "and then the remaining 8-bits."
  18. 180  LOCATE 22,2:PRINT "Press the S P A C E  B A R to return to disk tutorial...
  19. 190  S$ =INKEY$:IF S$ =" " THEN CLS:CLEAR:CHAIN"a"
  20. 200  GOTO 190
  21. 210  END
  22.